home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 September
/
CHIP Eylül 1998.iso
/
demolar
/
lokman
/
DISK1
/
_SETUP.2
/
Group1
/
Tarihdll.dll
/
0
/
RCDATA
/
TFMRECTANIM
/
TFMRECTANIM.txt
< prev
Wrap
Text File
|
1998-07-24
|
8KB
|
254 lines
object fmRecTanim: TfmRecTanim
Left = 151
Top = 98
ActiveControl = DBGridKUR
BorderStyle = bsSingle
Caption = 'Tan�ml� Re�ete Kay�tlar�'
ClientHeight = 274
ClientWidth = 301
Color = clSilver
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 14
object Panel2: TPanel
Left = 0
Top = 0
Width = 301
Height = 274
HelpContext = 302
Align = alClient
BevelInner = bvLowered
BevelOuter = bvLowered
BorderWidth = 4
Color = clTeal
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = DBGridKURColEnter
object Label1: TLabel
Left = 87
Top = 10
Width = 3
Height = 15
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = True
Visible = False
end
object Label2: TLabel
Left = 37
Top = 10
Width = 42
Height = 15
Caption = 'Aranan:'
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = True
Visible = False
end
object Image1: TImage
Left = 13
Top = 9
Width = 18
Height = 18
Picture.Data = {<image000.bmp>}
end
object Shape1: TShape
Left = 190
Top = 29
Width = 99
Height = 229
Brush.Color = clNavy
Pen.Color = clYellow
Pen.Width = 3
end
object Bevel1: TBevel
Left = 188
Top = 27
Width = 104
Height = 234
Style = bsRaised
end
object DBGridKUR: TDBGrid
Left = 9
Top = 27
Width = 173
Height = 234
Color = clYellow
DataSource = kurumBrSRC
FixedColor = clSilver
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
ReadOnly = True
TabOrder = 0
TitleFont.Color = clNavy
TitleFont.Height = -11
TitleFont.Name = 'Arial'
TitleFont.Style = [fsBold]
OnColEnter = DBGridKURColEnter
OnDblClick = DBGridKURDblClick
OnEnter = DBGridKURColEnter
OnExit = DBGridKURColEnter
OnKeyDown = DBGridKURKeyDown
OnKeyPress = DBGridKURKeyPress
end
object BitBtnYeni: TBitBtn
Left = 198
Top = 45
Width = 84
Height = 27
Hint = 'Insert Tu�u'
Caption = 'Yeni Kay�t'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = BitBtnYeniClick
OnKeyDown = BitBtnYeniKeyDown
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
Layout = blGlyphRight
NumGlyphs = 3
end
object BitBtnDegis: TBitBtn
Left = 198
Top = 103
Width = 84
Height = 27
Caption = '&De�i�tir'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 2
OnClick = BitBtnDegisClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF7733333033000000033333373377777773330000}
Layout = blGlyphRight
NumGlyphs = 2
Spacing = 5
end
object BitBtnSil: TBitBtn
Left = 198
Top = 160
Width = 84
Height = 27
Hint = 'Ctrl Delete Tu�u'
Caption = 'Kay�t Sil'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = BitBtnSilClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B55555555555555750000}
Layout = blGlyphRight
NumGlyphs = 2
Spacing = 2
end
object BitBtnKapat: TBitBtn
Left = 198
Top = 218
Width = 84
Height = 27
Hint = 'Alt-F4 Tu�u'
Caption = 'Kapat'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 4
Kind = bkClose
Layout = blGlyphRight
end
end
object kurumBrSRC: TDataSource
DataSet = kurumBr
Left = 209
Top = 55
end
object kurumBr: TTable
DatabaseName = 'ECZ'
TableName = 'recarka.DB'
Left = 254
Top = 55
object kurumBrKURUMKOD: TStringField
FieldName = 'KURUMKOD'
Size = 11
end
object kurumBrHASTATIP: TStringField
FieldName = 'HASTATIP'
OnGetText = kurumBrHASTATIPGetText
Size = 1
end
end
end